home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u304.dms / in.adf / bits2 / Cyclo_scroll.amos / Cyclo_scroll.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1995-07-31  |  786 b   |  26 lines
  1. Screen Open 0,320,200,2,0 : Hide 
  2. Paper 0 : Cls : Colour 1,$FFF
  3. Flash Off : Curs Off 
  4. Double Buffer 
  5. A$="Bonjour Voila un nouveau scrolltext de reve fait a partir de mon play editor et c' est genial ce truc et meme que ouaip. Amos c'est super ..."
  6. A$=Upper$(A$) : Synchro Off 
  7. B$="L: PL1;L A=27;P: If A=27 J P;L X=308;L Y=100;J L"
  8. For I=0 To 32
  9.    Channel I To Bob I+1 : Set Bob I+1,1,1,
  10.    Amal I,B$ : Amal On I : Amal Freeze I
  11. Next 
  12. SC=35
  13. For I=0 To 32
  14.    Bob I+1,308,100,Asc(Mid$(A$,I+1,1))-64
  15.    Amal On I : For J=0 To 16 : Synchro : Wait Vbl : Next 
  16. Next : Every 1 Proc EVER
  17. Do 
  18.    For I=0 To 32
  19.       If I Bob(I+1)=27 : Bob I+1,,,Asc(Mid$(A$,SC,1))-64 : Inc SC : End If 
  20.    Next 
  21.    If SC>Len(A$) Then SC=1
  22.    Every 1 Proc EVER
  23. Loop 
  24. Procedure EVER
  25.    Synchro : Every On 
  26. End Proc